'Управление:

'a-налево

'd-направо

's-давить

'Важно, чтобы 

'на клавиатуре был включен 

'английский язык

'и был выключен Caps Lock

x2 = INT(RND * 399)
x3 = INT(RND * 399)
x4 = INT(RND * 399)
x5 = INT(RND * 399)
x6 = INT(RND * 399)
x7 = INT(RND * 399)
x8 = INT(RND * 399)
x9 = INT(RND * 399)
x10 = INT(RND * 399)
kadr1 = 1
kadr2 = 0
kadr3 = 1
kadr4 = 0
kadr5 = 1
kadr6 = 0
kadr7 = 1
kadr8 = 0
kadr9 = 1
kadr10 = 0


begin:

c$ = INKEY$
IF c$ <> "" THEN
 IF ASC(c$) = 27 THEN END
END IF

IF c$ = "a" OR c$ = "d" OR c$ = "s" THEN

ruka:
LINE (x - 10, y)-(x + 10, y), 0
LINE -(x + 10, y + 7), 0
LINE (x - 10, y)-(x - 10, y + 5), 0
LINE (x - 13, y + 5)-(x - 3, y + 5), 0
LINE -(x - 3, y + 8), 0
LINE -(x - 10, y + 8), 0
LINE (x - 13, y + 5)-(x - 13, y + 9), 0
LINE -(x - 9, y + 12), 0
LINE (x + 10, y + 7)-(x + 9, y + 12), 0
LINE (x - 3, y + 7)-(x + 10, y + 7), 0
LINE (x - 5, y)-(x - 5, y + 5), 0
LINE (x, y)-(x, y + 7), 0
LINE (x + 5, y)-(x + 5, y + 7), 0
LINE (x - 9, y + 12)-(x - 9, y + 200), 0
LINE (x + 9, y + 12)-(x + 9, y + 200), 0

IF c$ = "a" THEN x = x - 15
IF c$ = "d" THEN x = x + 15
IF x > 389 THEN x = 389
IF x < 5 THEN x = 5
IF c$ = "s" THEN
ud = ud + 1
IF ud <= 6 THEN y = y - 5
IF ud >= 7 THEN y = y + 5
IF ud = 6 THEN
  IF ABS(x - x1) <= 11 THEN death1 = death1 + 1
  IF ABS(x - x2) <= 11 THEN death2 = death2 + 1
  IF ABS(x - x3) <= 11 THEN death3 = death3 + 1
  IF ABS(x - x4) <= 11 THEN death4 = death4 + 1
  IF ABS(x - x5) <= 11 THEN death5 = death5 + 1
  IF ABS(x - x6) <= 11 THEN death6 = death6 + 1
  IF ABS(x - x7) <= 11 THEN death7 = death7 + 1
  IF ABS(x - x8) <= 11 THEN death8 = death8 + 1
  IF ABS(x - x9) <= 11 THEN death9 = death9 + 1
  IF ABS(x - x10) <= 11 THEN death10 = death10 + 1
END IF
IF ud = 12 THEN
c$ = ""
y = 100
ud = 0
END IF
END IF
move:
LINE (x - 10, y)-(x + 10, y)
LINE -(x + 10, y + 7)
LINE (x - 10, y)-(x - 10, y + 5)
LINE (x - 13, y + 5)-(x - 3, y + 5)
LINE -(x - 3, y + 8)
LINE -(x - 10, y + 8)
LINE (x - 13, y + 5)-(x - 13, y + 9)
LINE -(x - 9, y + 12)
LINE (x + 10, y + 7)-(x + 9, y + 12)
LINE (x - 3, y + 7)-(x + 10, y + 7)
LINE (x - 5, y)-(x - 5, y + 5)
LINE (x, y)-(x, y + 7)
LINE (x + 5, y)-(x + 5, y + 7)
LINE (x - 9, y + 12)-(x - 9, y + 200)
LINE (x + 9, y + 12)-(x + 9, y + 200)
IF ud <> 0 THEN
FOR i = 1 TO vruka: NEXT i              'бЄ®а®бвм агЄЁ
GOTO ruka
END IF
END IF

'‘вЁа ­ЁҐ
'1
IF kadr1 = 0 THEN
CIRCLE (x1, y1), 1, 0
LINE (x1, y1)-(x1, y1 - 3), 0
LINE (x1, y1 - 3)-(x1 - 3, y1 - 6), 0
LINE (x1, y1 - 3)-(x1 + 3, y1 - 6), 0
LINE (x1, y1 - 1)-(x1 - 3, y1 - 3), 0
LINE (x1, y1 - 1)-(x1 + 3, y1 - 3), 0
END IF
IF kadr1 = 1 THEN
  LINE (x1, y1)-(x1, y1 - 6), 0
  CIRCLE (x1, y1), 1, 0
END IF

'2
IF kadr2 = 0 THEN
CIRCLE (x2, y1), 1, 0
LINE (x2, y1)-(x2, y1 - 3), 0
LINE (x2, y1 - 3)-(x2 - 3, y1 - 6), 0
LINE (x2, y1 - 3)-(x2 + 3, y1 - 6), 0
LINE (x2, y1 - 1)-(x2 - 3, y1 - 3), 0
LINE (x2, y1 - 1)-(x2 + 3, y1 - 3), 0
END IF
IF kadr2 = 1 THEN
  LINE (x2, y1)-(x2, y1 - 6), 0
  CIRCLE (x2, y1), 1, 0
END IF

'3
IF kadr3 = 0 THEN
CIRCLE (x3, y1), 1, 0
LINE (x3, y1)-(x3, y1 - 3), 0
LINE (x3, y1 - 3)-(x3 - 3, y1 - 6), 0
LINE (x3, y1 - 3)-(x3 + 3, y1 - 6), 0
LINE (x3, y1 - 1)-(x3 - 3, y1 - 3), 0
LINE (x3, y1 - 1)-(x3 + 3, y1 - 3), 0
END IF
IF kadr3 = 1 THEN
  LINE (x3, y1)-(x3, y1 - 6), 0
  CIRCLE (x3, y1), 1, 0
END IF

'4
IF kadr4 = 0 THEN
CIRCLE (x4, y1), 1, 0
LINE (x4, y1)-(x4, y1 - 3), 0
LINE (x4, y1 - 3)-(x4 - 3, y1 - 6), 0
LINE (x4, y1 - 3)-(x4 + 3, y1 - 6), 0
LINE (x4, y1 - 1)-(x4 - 3, y1 - 3), 0
LINE (x4, y1 - 1)-(x4 + 3, y1 - 3), 0
END IF
IF kadr4 = 1 THEN
  LINE (x4, y1)-(x4, y1 - 6), 0
  CIRCLE (x4, y1), 1, 0
END IF

'5
IF kadr5 = 0 THEN
CIRCLE (x5, y1), 1, 0
LINE (x5, y1)-(x5, y1 - 3), 0
LINE (x5, y1 - 3)-(x5 - 3, y1 - 6), 0
LINE (x5, y1 - 3)-(x5 + 3, y1 - 6), 0
LINE (x5, y1 - 1)-(x5 - 3, y1 - 3), 0
LINE (x5, y1 - 1)-(x5 + 3, y1 - 3), 0
END IF
IF kadr5 = 1 THEN
  LINE (x5, y1)-(x5, y1 - 6), 0
  CIRCLE (x5, y1), 1, 0
END IF

'6
IF kadr6 = 0 THEN
CIRCLE (x6, y1), 1, 0
LINE (x6, y1)-(x6, y1 - 3), 0
LINE (x6, y1 - 3)-(x6 - 3, y1 - 6), 0
LINE (x6, y1 - 3)-(x6 + 3, y1 - 6), 0
LINE (x6, y1 - 1)-(x6 - 3, y1 - 3), 0
LINE (x6, y1 - 1)-(x6 + 3, y1 - 3), 0
END IF
IF kadr6 = 1 THEN
  LINE (x6, y1)-(x6, y1 - 6), 0
  CIRCLE (x6, y1), 1, 0
END IF

'7
IF kadr7 = 0 THEN
CIRCLE (x7, y1), 1, 0
LINE (x7, y1)-(x7, y1 - 3), 0
LINE (x7, y1 - 3)-(x7 - 3, y1 - 6), 0
LINE (x7, y1 - 3)-(x7 + 3, y1 - 6), 0
LINE (x7, y1 - 1)-(x7 - 3, y1 - 3), 0
LINE (x7, y1 - 1)-(x7 + 3, y1 - 3), 0
END IF
IF kadr7 = 1 THEN
  LINE (x7, y1)-(x7, y1 - 6), 0
  CIRCLE (x7, y1), 1, 0
END IF

'8
IF kadr8 = 0 THEN
CIRCLE (x8, y1), 1, 0
LINE (x8, y1)-(x8, y1 - 3), 0
LINE (x8, y1 - 3)-(x8 - 3, y1 - 6), 0
LINE (x8, y1 - 3)-(x8 + 3, y1 - 6), 0
LINE (x8, y1 - 1)-(x8 - 3, y1 - 3), 0
LINE (x8, y1 - 1)-(x8 + 3, y1 - 3), 0
END IF
IF kadr8 = 1 THEN
  LINE (x8, y1)-(x8, y1 - 6), 0
  CIRCLE (x8, y1), 1, 0
END IF

'9
IF kadr9 = 0 THEN
CIRCLE (x9, y1), 1, 0
LINE (x9, y1)-(x9, y1 - 3), 0
LINE (x9, y1 - 3)-(x9 - 3, y1 - 6), 0
LINE (x9, y1 - 3)-(x9 + 3, y1 - 6), 0
LINE (x9, y1 - 1)-(x9 - 3, y1 - 3), 0
LINE (x9, y1 - 1)-(x9 + 3, y1 - 3), 0
END IF
IF kadr9 = 1 THEN
  LINE (x9, y1)-(x9, y1 - 6), 0
  CIRCLE (x9, y1), 1, 0
END IF

'10
IF kadr10 = 0 THEN
CIRCLE (x10, y1), 1, 0
LINE (x10, y1)-(x10, y1 - 3), 0
LINE (x10, y1 - 3)-(x10 - 3, y1 - 6), 0
LINE (x10, y1 - 3)-(x10 + 3, y1 - 6), 0
LINE (x10, y1 - 1)-(x10 - 3, y1 - 3), 0
LINE (x10, y1 - 1)-(x10 + 3, y1 - 3), 0
END IF
IF kadr10 = 1 THEN
  LINE (x10, y1)-(x10, y1 - 6), 0
  CIRCLE (x10, y1), 1, 0
END IF







strah:
n1 = 0
n2 = 0
n3 = 0
n4 = 0
n5 = 0
n6 = 0
n7 = 0
n8 = 0
n9 = 0
n10 = 0


ch1:

IF ABS(x - x1) <= 40 THEN
 IF x1 - x <= 0 THEN n1 = -1
 IF x1 - x > 0 THEN n1 = 1
END IF

ch2:

IF ABS(x - x2) <= 30 THEN
 IF x2 - x <= 0 THEN n2 = -1
 IF x2 - x > 0 THEN n2 = 1
END IF

ch3:

IF ABS(x - x3) <= 35 THEN
 IF x3 - x <= 0 THEN n3 = -1
 IF x3 - x > 0 THEN n3 = 1
END IF

ch4:

IF ABS(x - x4) <= 60 THEN
 IF x4 - x <= 0 THEN n4 = -1
 IF x4 - x > 0 THEN n4 = 1
END IF

ch5:

IF ABS(x - x5) <= 70 THEN
 IF x5 - x <= 0 THEN n5 = -1
 IF x5 - x > 0 THEN n5 = 1
END IF

ch6:

IF ABS(x - x6) <= 10 THEN
 IF x6 - x <= 0 THEN n6 = -1
 IF x6 - x > 0 THEN n6 = 1
END IF

ch7:

IF ABS(x - x7) <= 20 THEN
 IF x7 - x <= 0 THEN n7 = -1
 IF x7 - x > 0 THEN n7 = 1
END IF

ch8:

IF ABS(x - x8) <= 45 THEN
 IF x8 - x <= 0 THEN n8 = -1
 IF x8 - x > 0 THEN n8 = 1
END IF

ch9:

IF ABS(x - x9) <= 47 THEN
 IF x9 - x <= 0 THEN n9 = -1
 IF x9 - x > 0 THEN n9 = 1
END IF

ch10:

IF ABS(x - x10) <= 26 THEN
 IF x10 - x <= 0 THEN n10 = -1
 IF x10 - x > 0 THEN n10 = 1
END IF


'¤ўЁ¦Ґ­ЁҐ згЎаЁЄ®ў

r1:
IF death1 <> 0 THEN GOTO die1
IF n1 = 1 THEN
x1 = x1 + 3
ELSEIF n1 = -1 THEN
x1 = x1 - 3
END IF
kadr1 = ABS(kadr1 - 1)
IF n1 = 0 THEN kadr1 = ABS(kadr1 - 1)
r2:
IF death2 <> 0 THEN GOTO die2
IF n2 = 1 THEN
x2 = x2 + 3
ELSEIF n2 = -1 THEN
x2 = x2 - 3
END IF
kadr2 = ABS(kadr2 - 1)
IF n2 = 0 THEN kadr2 = ABS(kadr2 - 1)
r3:
IF death3 <> 0 THEN GOTO die3
IF n3 = 1 THEN
x3 = x3 + 3
ELSEIF n3 = -1 THEN
x3 = x3 - 3
END IF
kadr3 = ABS(kadr3 - 1)
IF n3 = 0 THEN kadr3 = ABS(kadr3 - 1)
r4:
IF death4 <> 0 THEN GOTO die4
IF n4 = 1 THEN
x4 = x4 + 3
ELSEIF n4 = -1 THEN
x4 = x4 - 3
END IF
kadr4 = ABS(kadr4 - 1)
IF n4 = 0 THEN kadr4 = ABS(kadr4 - 1)
r5:
IF death5 <> 0 THEN GOTO die5
IF n5 = 1 THEN
x5 = x5 + 3
ELSEIF n5 = -1 THEN
x5 = x5 - 3
END IF
kadr5 = ABS(kadr5 - 1)
IF n5 = 0 THEN kadr5 = ABS(kadr5 - 1)
r6:
IF death6 <> 0 THEN GOTO die6
IF n6 = 1 THEN
x6 = x6 + 3
ELSEIF n6 = -1 THEN
x6 = x6 - 3
END IF
kadr6 = ABS(kadr6 - 1)
IF n6 = 0 THEN kadr6 = ABS(kadr6 - 1)
r7:
IF death7 <> 0 THEN GOTO die7
IF n7 = 1 THEN
x7 = x7 + 3
ELSEIF n7 = -1 THEN
x7 = x7 - 3
END IF
kadr7 = ABS(kadr7 - 1)
IF n7 = 0 THEN kadr7 = ABS(kadr7 - 1)
r8:
IF death8 <> 0 THEN GOTO die8
IF n8 = 1 THEN
x8 = x8 + 3
ELSEIF n8 = -1 THEN
x8 = x8 - 3
END IF
kadr8 = ABS(kadr8 - 1)
IF n8 = 0 THEN kadr8 = ABS(kadr8 - 1)
r9:
IF death9 <> 0 THEN GOTO die9
IF n9 = 1 THEN
x9 = x9 + 3
ELSEIF n9 = -1 THEN
x9 = x9 - 3
END IF
kadr9 = ABS(kadr9 - 1)
IF n9 = 0 THEN kadr9 = ABS(kadr9 - 1)
r10:
IF death10 <> 0 THEN GOTO die10
IF n10 = 1 THEN
x10 = x10 + 3
ELSEIF n10 = -1 THEN
x10 = x10 - 3
END IF
kadr10 = ABS(kadr10 - 1)
IF n10 = 0 THEN kadr10 = ABS(kadr10 - 1)

ris:
IF x1 < 9 THEN x1 = 9
IF x2 < 9 THEN x2 = 9
IF x3 < 9 THEN x3 = 9
IF x4 < 9 THEN x4 = 9
IF x5 < 9 THEN x5 = 9
IF x6 < 9 THEN x6 = 9
IF x7 < 9 THEN x7 = 9
IF x8 < 9 THEN x8 = 9
IF x9 < 9 THEN x9 = 9
IF x10 < 9 THEN x10 = 9

IF x1 > 386 THEN x1 = 386
IF x2 > 386 THEN x2 = 386
IF x3 > 386 THEN x3 = 386
IF x4 > 386 THEN x4 = 386
IF x5 > 386 THEN x5 = 386
IF x6 > 386 THEN x6 = 386
IF x7 > 386 THEN x7 = 386
IF x8 > 386 THEN x8 = 386
IF x9 > 386 THEN x9 = 386
IF x10 > 386 THEN x10 = 386


'аЁб®ў ­ЁҐ згЎаЁЄ®ў

'LINE (0, 69)-(399, 69)
p1:
IF death1 <> 0 THEN GOTO p2
IF kadr1 = 0 THEN
CIRCLE (x1, y1), 1
LINE (x1, y1)-(x1, y1 - 3)
LINE (x1, y1 - 3)-(x1 - 3, y1 - 6)
LINE (x1, y1 - 3)-(x1 + 3, y1 - 6)
LINE (x1, y1 - 1)-(x1 - 3, y1 - 3)
LINE (x1, y1 - 1)-(x1 + 3, y1 - 3)
END IF
IF kadr1 = 1 THEN
  LINE (x1, y1)-(x1, y1 - 6)
  CIRCLE (x1, y1), 1
END IF

p2:
IF death2 <> 0 THEN GOTO p3
IF kadr2 = 0 THEN
CIRCLE (x2, y1), 1
LINE (x2, y1)-(x2, y1 - 3)
LINE (x2, y1 - 3)-(x2 - 3, y1 - 6)
LINE (x2, y1 - 3)-(x2 + 3, y1 - 6)
LINE (x2, y1 - 1)-(x2 - 3, y1 - 3)
LINE (x2, y1 - 1)-(x2 + 3, y1 - 3)
END IF
IF kadr2 = 1 THEN
  LINE (x2, y1)-(x2, y1 - 6)
  CIRCLE (x2, y1), 1
END IF

p3:
IF death3 <> 0 THEN GOTO p4
IF kadr3 = 0 THEN
CIRCLE (x3, y1), 1
LINE (x3, y1)-(x3, y1 - 3)
LINE (x3, y1 - 3)-(x3 - 3, y1 - 6)
LINE (x3, y1 - 3)-(x3 + 3, y1 - 6)
LINE (x3, y1 - 1)-(x3 - 3, y1 - 3)
LINE (x3, y1 - 1)-(x3 + 3, y1 - 3)
END IF
IF kadr3 = 1 THEN
  LINE (x3, y1)-(x3, y1 - 6)
  CIRCLE (x3, y1), 1
END IF

p4:
IF death4 <> 0 THEN GOTO p5
IF kadr4 = 0 THEN
CIRCLE (x4, y1), 1
LINE (x4, y1)-(x4, y1 - 3)
LINE (x4, y1 - 3)-(x4 - 3, y1 - 6)
LINE (x4, y1 - 3)-(x4 + 3, y1 - 6)
LINE (x4, y1 - 1)-(x4 - 3, y1 - 3)
LINE (x4, y1 - 1)-(x4 + 3, y1 - 3)
END IF
IF kadr4 = 1 THEN
  LINE (x4, y1)-(x4, y1 - 6)
  CIRCLE (x4, y1), 1
END IF

p5:
IF death5 <> 0 THEN GOTO p6
IF kadr5 = 0 THEN
CIRCLE (x5, y1), 1
LINE (x5, y1)-(x5, y1 - 3)
LINE (x5, y1 - 3)-(x5 - 3, y1 - 6)
LINE (x5, y1 - 3)-(x5 + 3, y1 - 6)
LINE (x5, y1 - 1)-(x5 - 3, y1 - 3)
LINE (x5, y1 - 1)-(x5 + 3, y1 - 3)
END IF
IF kadr5 = 1 THEN
  LINE (x5, y1)-(x5, y1 - 6)
  CIRCLE (x5, y1), 1
END IF

p6:
IF death6 <> 0 THEN GOTO p7
IF kadr6 = 0 THEN
CIRCLE (x6, y1), 1
LINE (x6, y1)-(x6, y1 - 3)
LINE (x6, y1 - 3)-(x6 - 3, y1 - 6)
LINE (x6, y1 - 3)-(x6 + 3, y1 - 6)
LINE (x6, y1 - 1)-(x6 - 3, y1 - 3)
LINE (x6, y1 - 1)-(x6 + 3, y1 - 3)
END IF
IF kadr6 = 1 THEN
  LINE (x6, y1)-(x6, y1 - 6)
  CIRCLE (x6, y1), 1
END IF

p7:
IF death7 <> 0 THEN GOTO p8
IF kadr7 = 0 THEN
CIRCLE (x7, y1), 1
LINE (x7, y1)-(x7, y1 - 3)
LINE (x7, y1 - 3)-(x7 - 3, y1 - 6)
LINE (x7, y1 - 3)-(x7 + 3, y1 - 6)
LINE (x7, y1 - 1)-(x7 - 3, y1 - 3)
LINE (x7, y1 - 1)-(x7 + 3, y1 - 3)
END IF
IF kadr7 = 1 THEN
  LINE (x7, y1)-(x7, y1 - 6)
  CIRCLE (x7, y1), 1
END IF

p8:
IF death8 <> 0 THEN GOTO p9
IF kadr8 = 0 THEN
CIRCLE (x8, y1), 1
LINE (x8, y1)-(x8, y1 - 3)
LINE (x8, y1 - 3)-(x8 - 3, y1 - 6)
LINE (x8, y1 - 3)-(x8 + 3, y1 - 6)
LINE (x8, y1 - 1)-(x8 - 3, y1 - 3)
LINE (x8, y1 - 1)-(x8 + 3, y1 - 3)
END IF
IF kadr8 = 1 THEN
  LINE (x8, y1)-(x8, y1 - 6)
  CIRCLE (x8, y1), 1
END IF

p9:
IF death9 <> 0 THEN GOTO p10
IF kadr9 = 0 THEN
CIRCLE (x9, y1), 1
LINE (x9, y1)-(x9, y1 - 3)
LINE (x9, y1 - 3)-(x9 - 3, y1 - 6)
LINE (x9, y1 - 3)-(x9 + 3, y1 - 6)
LINE (x9, y1 - 1)-(x9 - 3, y1 - 3)
LINE (x9, y1 - 1)-(x9 + 3, y1 - 3)
END IF
IF kadr9 = 1 THEN
  LINE (x9, y1)-(x9, y1 - 6)
  CIRCLE (x9, y1), 1
END IF

p10:
IF death10 <> 0 THEN GOTO p11
IF kadr10 = 0 THEN
CIRCLE (x10, y1), 1
LINE (x10, y1)-(x10, y1 - 3)
LINE (x10, y1 - 3)-(x10 - 3, y1 - 6)
LINE (x10, y1 - 3)-(x10 + 3, y1 - 6)
LINE (x10, y1 - 1)-(x10 - 3, y1 - 3)
LINE (x10, y1 - 1)-(x10 + 3, y1 - 3)
END IF
IF kadr10 = 1 THEN
  LINE (x10, y1)-(x10, y1 - 6)
  CIRCLE (x10, y1), 1
END IF
p11:
FOR i = 1 TO vchub: NEXT i



GOTO begin


die1:
IF death1 = 1 THEN
CIRCLE (x1 - 3, y1 - 6), 1
LINE (x1 - 3, y1 - 6.5)-(x1 + 1, y1 - 6.5)
LINE (x1 + 3, y1 - 6.5)-(x1 + 4, y1 - 5)
LINE (x1 - 2, y1 - 7)-(x1 + 2, y1 - 7), 4
ELSEIF death1 >= 2 THEN
CIRCLE (x1 - 3, y1 - 6), 1, 0
LINE (x1 - 3, y1 - 6.5)-(x1 + 1, y1 - 6.5), 0
LINE (x1 + 3, y1 - 6.5)-(x1 + 4, y1 - 5), 0
LINE (x1 - 2, y1 - 7)-(x1 + 2, y1 - 7), 0
LINE (x1 - 3, 69)-(x1 + 4, 69), 4
death1 = 2
END IF
GOTO r2

die2:
IF death2 = 1 THEN
CIRCLE (x2 - 3, y1 - 6), 1
LINE (x2 - 3, y1 - 6.5)-(x2 + 1, y1 - 6.5)
LINE (x2 + 3, y1 - 6.5)-(x2 + 4, y1 - 5)
LINE (x2 - 2, y1 - 7)-(x2 + 2, y1 - 7), 4
ELSEIF death2 >= 2 THEN
CIRCLE (x2 - 3, y1 - 6), 1, 0
LINE (x2 - 3, y1 - 6.5)-(x2 + 1, y1 - 6.5), 0
LINE (x2 + 3, y1 - 6.5)-(x2 + 4, y1 - 5), 0
LINE (x2 - 2, y1 - 7)-(x2 + 2, y1 - 7), 0
LINE (x2 - 3, 69)-(x2 + 4, 69), 4
death2 = 2
END IF
GOTO r3
die3:
IF death3 = 1 THEN
CIRCLE (x3 - 3, y1 - 6), 1
LINE (x3 - 3, y1 - 6.5)-(x3 + 1, y1 - 6.5)
LINE (x3 + 3, y1 - 6.5)-(x3 + 4, y1 - 5)
LINE (x3 - 2, y1 - 7)-(x3 + 2, y1 - 7), 4
ELSEIF death3 >= 2 THEN
CIRCLE (x3 - 3, y1 - 6), 1, 0
LINE (x3 - 3, y1 - 6.5)-(x3 + 1, y1 - 6.5), 0
LINE (x3 + 3, y1 - 6.5)-(x3 + 4, y1 - 5), 0
LINE (x3 - 2, y1 - 7)-(x3 + 2, y1 - 7), 0
LINE (x3 - 3, 69)-(x3 + 4, 69), 4
death3 = 2
END IF
GOTO r4
die4:
IF death4 = 1 THEN
CIRCLE (x4 - 3, y1 - 6), 1
LINE (x4 - 3, y1 - 6.5)-(x4 + 1, y1 - 6.5)
LINE (x4 + 3, y1 - 6.5)-(x4 + 4, y1 - 5)
LINE (x4 - 2, y1 - 7)-(x4 + 2, y1 - 7), 4
ELSEIF death4 >= 2 THEN
CIRCLE (x4 - 3, y1 - 6), 1, 0
LINE (x4 - 3, y1 - 6.5)-(x4 + 1, y1 - 6.5), 0
LINE (x4 + 3, y1 - 6.5)-(x4 + 4, y1 - 5), 0
LINE (x4 - 2, y1 - 7)-(x4 + 2, y1 - 7), 0
LINE (x4 - 3, 69)-(x4 + 4, 69), 4
death4 = 2
END IF
GOTO r5
die5:
IF death5 = 1 THEN
CIRCLE (x5 - 3, y1 - 6), 1
LINE (x5 - 3, y1 - 6.5)-(x5 + 1, y1 - 6.5)
LINE (x5 + 3, y1 - 6.5)-(x5 + 4, y1 - 5)
LINE (x5 - 2, y1 - 7)-(x5 + 2, y1 - 7), 4
ELSEIF death5 >= 2 THEN
CIRCLE (x5 - 3, y1 - 6), 1, 0
LINE (x5 - 3, y1 - 6.5)-(x5 + 1, y1 - 6.5), 0
LINE (x5 + 3, y1 - 6.5)-(x5 + 4, y1 - 5), 0
LINE (x5 - 2, y1 - 7)-(x5 + 2, y1 - 7), 0
LINE (x5 - 3, 69)-(x5 + 4, 69), 4
death5 = 2
END IF
GOTO r6

die6:
IF death6 = 1 THEN
CIRCLE (x6 - 3, y1 - 6), 1
LINE (x6 - 3, y1 - 6.5)-(x6 + 1, y1 - 6.5)
LINE (x6 + 3, y1 - 6.5)-(x6 + 4, y1 - 5)
LINE (x6 - 2, y1 - 7)-(x6 + 2, y1 - 7), 4
ELSEIF death6 >= 2 THEN
CIRCLE (x6 - 3, y1 - 6), 1, 0
LINE (x6 - 3, y1 - 6.5)-(x6 + 1, y1 - 6.5), 0
LINE (x6 + 3, y1 - 6.5)-(x6 + 4, y1 - 5), 0
LINE (x6 - 2, y1 - 7)-(x6 + 2, y1 - 7), 0
LINE (x6 - 3, 69)-(x6 + 4, 69), 4
death6 = 2
END IF
GOTO r7

die7:
IF death7 = 1 THEN
CIRCLE (x7 - 3, y1 - 6), 1
LINE (x7 - 3, y1 - 6.5)-(x7 + 1, y1 - 6.5)
LINE (x7 + 3, y1 - 6.5)-(x7 + 4, y1 - 5)
LINE (x7 - 2, y1 - 7)-(x7 + 2, y1 - 7), 4
ELSEIF death7 >= 2 THEN
CIRCLE (x7 - 3, y1 - 6), 1, 0
LINE (x7 - 3, y1 - 6.5)-(x7 + 1, y1 - 6.5), 0
LINE (x7 + 3, y1 - 6.5)-(x7 + 4, y1 - 5), 0
LINE (x7 - 2, y1 - 7)-(x7 + 2, y1 - 7), 0
LINE (x7 - 3, 69)-(x7 + 4, 69), 4
death7 = 2
END IF
GOTO r8

die8:
IF death8 = 1 THEN
CIRCLE (x8 - 3, y1 - 6), 1
LINE (x8 - 3, y1 - 6.5)-(x8 + 1, y1 - 6.5)
LINE (x8 + 3, y1 - 6.5)-(x8 + 4, y1 - 5)
LINE (x8 - 2, y1 - 7)-(x8 + 2, y1 - 7), 4
ELSEIF death8 >= 2 THEN
CIRCLE (x8 - 3, y1 - 6), 1, 0
LINE (x8 - 3, y1 - 6.5)-(x8 + 1, y1 - 6.5), 0
LINE (x8 + 3, y1 - 6.5)-(x8 + 4, y1 - 5), 0
LINE (x8 - 2, y1 - 7)-(x8 + 2, y1 - 7), 0
LINE (x8 - 3, 69)-(x8 + 4, 69), 4
death8 = 2
END IF
GOTO r9

die9:
IF death9 = 1 THEN
CIRCLE (x9 - 3, y1 - 6), 1
LINE (x9 - 3, y1 - 6.5)-(x9 + 1, y1 - 6.5)
LINE (x9 + 3, y1 - 6.5)-(x9 + 4, y1 - 5)
LINE (x9 - 2, y1 - 7)-(x9 + 2, y1 - 7), 4
ELSEIF death9 >= 2 THEN
CIRCLE (x9 - 3, y1 - 6), 1, 0
LINE (x9 - 3, y1 - 6.5)-(x9 + 1, y1 - 6.5), 0
LINE (x9 + 3, y1 - 6.5)-(x9 + 4, y1 - 5), 0
LINE (x9 - 2, y1 - 7)-(x9 + 2, y1 - 7), 0
LINE (x9 - 3, 69)-(x9 + 4, 69), 4
death9 = 2
END IF
GOTO r10

die10:
IF death10 = 1 THEN
CIRCLE (x10 - 3, y1 - 6), 1
LINE (x10 - 3, y1 - 6.5)-(x10 + 1, y1 - 6.5)
LINE (x10 + 3, y1 - 6.5)-(x10 + 4, y1 - 5)
LINE (x10 - 2, y1 - 7)-(x10 + 2, y1 - 7), 4
ELSEIF death10 >= 2 THEN
CIRCLE (x10 - 3, y1 - 6), 1, 0
LINE (x10 - 3, y1 - 6.5)-(x10 + 1, y1 - 6.5), 0
LINE (x10 + 3, y1 - 6.5)-(x10 + 4, y1 - 5), 0
LINE (x10 - 2, y1 - 7)-(x10 + 2, y1 - 7), 0
LINE (x10 - 3, 69)-(x10 + 4, 69), 4
death10 = 2
END IF
IF death1 = 2 AND death2 = 2 AND death3 = 2 AND death4 = 2 AND death5 = 2 AND death6 = 2 AND death7 = 2 AND death8 = 2 AND death9 = 2 AND death10 = 2 THEN GOTO finish
GOTO ris
finish:
LOCATE 23, 35
IF f = 0 THEN
PRINT "…йс? (Y/N)"
f = 1
END IF
c$ = INKEY$
IF c$ = "y" THEN GOTO verbegin
IF c$ = "n" THEN END
GOTO finish